#!/usr/bin/perl -w # For syntax highlighting
package clreqd_modules;

use strict;
use vm_info;
use clutils qw(to_bool);

sub vm_support_migrate {
my %ARGS=@_;

	my $type=$ARGS{TYPE};
	my $vm_info=new vm_info($type);
	if(!defined($vm_info)) {
		return "FAIL " . vm_info::error();
	}
	my $rr=$vm_info->get_field("support_migrate");
	if(!defined($rr)) {
		return "FAIL " . vm_info::error();
	}
	if(to_bool($rr)) {
		return "OK YES";
	}
	return "OK NO";
}

1;
